home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / executiv.lha / Executive_V1.00 / Install / UnInstall.Executive < prev   
Text File  |  1995-09-06  |  8KB  |  283 lines
  1. ;
  2. ; Executive UnInstallation script
  3. ;
  4. ; Copyright © 1995 Petri Nordlund. All rights reserved.
  5. ;
  6. ; $Id: UnInstall.Executive 1.8 1995/09/03 14:27:53 petrin Exp petrin $
  7. ;
  8. ; Languages available:
  9. ;   English (default)
  10. ;   Suomi
  11. ;
  12.  
  13.  
  14. ; =======================================================================
  15. ;   Set up some variables
  16. ; =======================================================================
  17.  
  18. (set TRUE        1)
  19. (set FALSE        0)
  20.  
  21. ; =======================================================================
  22. ;   Set up localized strings
  23. ; =======================================================================
  24.  
  25. ; ==== Ask users language
  26. (set sel_lang
  27.     (askchoice
  28.         (prompt "Please select your language")
  29.         (help @askoptions-help)
  30.         (choices
  31.             "English"
  32.             "Suomi"
  33. ;            "Français"
  34. ;            "Deutsch"
  35. ;            "Norsk"
  36.             "Nederlands"
  37.             "Svenska"
  38. ;            "Dansk"
  39. ;            "Español"
  40. ;            "Italiano"
  41. ;            "Português"
  42.         )
  43.         (default 0)
  44.     )
  45. )
  46.  
  47. (set @language
  48.     (select sel_lang
  49.         "English"
  50.         "Suomi"
  51. ;        "Français"
  52. ;        "Deutsch"
  53. ;        "Norsk"
  54.         "Nederlands"
  55.         "Svenska"
  56. ;        "Dansk"
  57. ;        "Español"
  58. ;        "Italiano"
  59. ;        "Português"
  60.             ""
  61.     )
  62. )
  63.  
  64.  
  65. ;
  66. ; ===== English
  67. ;
  68. (set #please_close "\nThis program will DELETE Executive from your harddisk. All files that belong to Executive will be deleted. Other files won't be touched.\n\n\nPLEASE CLOSE THE EXECUTIVE DIRECTORY WINDOW IN WORKBENCH SCREEN SO THE DIRECTORY CAN BE DELETED.")
  69. (set #savekey "\nDo you want to copy your personal keyfile to S: directory, so it will be saved for the time when you reinstall Executive? Executive will find the key from S: directory.")
  70. (set #yes "Yes, copy key to S:")
  71. (set #no "No, delete the key")
  72. (set #userstartup "; Executive has been uninstalled.")
  73. (set #rempath "\nA `Path'-command in your \"S:User-Startup\" file will now be removed.")
  74. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  75. (set #done "\nExecutive has been uninstalled successfully.")
  76.  
  77. ;
  78. ; ===== Suomi
  79. ;
  80. (if (= @language "Suomi")
  81. (
  82. (set #please_close "\nTämä ohjelma POISTAA Executiven kovalevyltäsi. Kaikki Executiveen kuuluvat tiedostot tuhotaan. Muihin tiedostoihin ei kosketa.\n\n\nSULJE WORKBENCH-RUUDULLA AVOINNA OLEVA EXECUTIVEN HAKEMISTO-IKKUNA, MUUTOIN HAKEMISTOA EI VOI POISTAA.")
  83. (set #savekey "\nHaluatko kopioida henkilökohtaisen suojausavaimesi S: hakemistoon, josta Executive löytää sen jos asennat Executiven uudelleen?")
  84. (set #yes "Kyllä")
  85. (set #no "En")
  86. (set #userstartup "; Executive on poistettu.")
  87. (set #rempath "\n`Path´-komento \"S:User-Startup\" tiedostossa poistetaan.")
  88. (set #remhelp "Kun asensit Executiven, asennusohjelma lisäsi muutamia komentoja \"S:User-Startup\" tiedostoon. Nämä komennot poistetaan.")
  89. (set #done "\nExecutive on onnistuneesti poistettu koneestasi.")
  90. )) ; end of if statement
  91.  
  92. ;
  93. ; ===== Français
  94. ;
  95. ;(if (= @language "Français")
  96. ;(
  97. ;)) ; end of if statement
  98.  
  99. ;
  100. ; ===== Deutsch
  101. ;
  102. ;(if (= @language "Deutsch")
  103. ;(
  104. ;)) ; end of if statement
  105.  
  106. ;
  107. ; ===== Norsk
  108. ;
  109. ;(if (= @language "Norsk")
  110. ;(
  111. ;)) ; end of if statement
  112.  
  113. ;
  114. ; ===== Nederlands
  115. ;
  116. (if (= @language "Nederlands")
  117. (
  118. (set #please_close "\nDit programma zal Executive van uw harddisk verwijderen. Alle bestanden die behoren tot Executive zullen worden verwijderd. Andere bestanden zullen met rust worden gelaten.\n\n\nSLUIT U ALSTUBLIEFT DE EXECUTIVE LADE IN UW WORKBENCH ZODAT EXECUTIVE KAN WORDEN VERWIJDERD.")
  119. (set #savekey "\nWilt u uw persoonlijke keyfile naar de S: lade gekopieërd hebben, zodat deze kan worden bewaard voor het geval dat u Executive opnieuw wilt installeren? Executive zal deze keyfile ook vinden vanuit de S: lade.")
  120. (set #yes "Ja, kopieër key naar S:")
  121. (set #userstartup "; Executive is verwijderd.")
  122. (set #rempath "\nEen `Path'-commando in uw \"S:User-Startup\" bestand zal nu worden verwijderd.")
  123. (set #remhelp "Toen u Executive geïnstalleerd heeft, heeft het installatie script enkele commando's toegevoegd aan uw \"S:User-Startup\" bestand. Deze commando's zullen nu verwijderd worden.")
  124. (set #done "\nExecutive is succesvol verwijderd.")
  125. )) ; end of if statement
  126.  
  127. ;
  128. ; ===== Svenska
  129. ;
  130. (if (= @language "Svenska")
  131. (
  132. (set #please_close "\nDet här programmet kommer att TA BORT Execute från din hårddisk. Alla filer som tillhör Executive raderas. Andra filer lämnas orörda.\n\n\nSTÄNG EXECUTIVE-FÖNSTRET PÅ WORKBENCHSKÄRMEN SÅ ATT LÅDAN KAN RADERAS.")
  133. (set #savekey "\nVill du kopiera din personliga nyckelfil till S:-lådan, så att den sparas tills du åter installerar Executive? Executive hittar filen i S:-lådan.")
  134. (set #yes "Ja, kopiera nyckeln till S:")
  135. (set #no "Nej, radera nyckeln")
  136. (set #userstartup "; Executive har avinstallerats.")
  137. (set #rempath "\n`Path'-kommandot i din \"S:User-Startup\"-fil kommer nu att tas bort.")
  138. (set #remhelp "När du installerade Executive så adderade installationsskriptet några kommandon till \"S:User-Startup\"-filen. Dessa kommandon tas nu bort.")
  139. (set #done "\nExecutive har avinstallerats.")
  140. )) ; end of if statement
  141.  
  142. ;
  143. ; ===== Dansk
  144. ;
  145. ;(if (= @language "Dansk")
  146. ;(
  147. ;)) ; end of if statement
  148.  
  149. ;
  150. ; ===== Español
  151. ;
  152. ;(if (= @language "Español")
  153. ;(
  154. ;)) ; end of if statement
  155.  
  156. ;
  157. ; ===== Italiano
  158. ;
  159. ;(if (= @language "Italiano")
  160. ;(
  161. ;)) ; end of if statement
  162.  
  163. ;
  164. ; ===== Português
  165. ;
  166. ;(if (= @language "Português")
  167. ;(
  168. ;)) ; end of if statement
  169.  
  170.  
  171. ; =======================================================================
  172. ;   Initialization
  173. ; =======================================================================
  174.  
  175. ; Logfile is written to RAM:
  176. (set @default-dest "RAM:")
  177.  
  178.  
  179. ; change userlevel to expert
  180. (procedure expert_level
  181.     ((user 2))
  182. )
  183. ; reset userlevel back to default
  184. (procedure default_level
  185.     ((user default-level))
  186. )
  187. ; store off userlevel
  188. (procedure save_default_level
  189.     ((set default-level @user-level))
  190. )
  191.  
  192. (save_default_level)
  193. (expert_level)
  194.  
  195. ; =======================================================================
  196. ;   Uninstall
  197. ; =======================================================================
  198.  
  199. (complete 0)
  200.  
  201. (message #please_close)
  202.  
  203. (run "ExDest:Executive/Executive QUIT")
  204.  
  205. (set keyexists FALSE)
  206.  
  207. (if (exists ("ExDest:Executive/Executive.key") (noreq))
  208.     (set keyexists TRUE)
  209. ) ; end of if statement
  210. (if (exists ("S:Executive.key") (noreq))
  211.     (set keyexists TRUE)
  212. ) ; end of if statement
  213. (if (exists ("ENV:Executive.key") (noreq))
  214.     (set keyexists TRUE)
  215. ) ; end of if statement
  216. (if (exists ("ENVARC:Executive.key") (noreq))
  217.     (set keyexists TRUE)
  218. ) ; end of if statement
  219.  
  220. (if (= keyexists TRUE)
  221. (
  222.     (if (askbool
  223.         (prompt #savekey)
  224.         (help @askbool-help)
  225.         (default 0)
  226.         (choices #yes #no))
  227.         (
  228.             ; copy key
  229.             (run "copy ENVARC:Executive.key S:")
  230.             (run "copy ENV:Executive.key S:")
  231.             (run "copy ExDest:Executive/Executive.key S:")
  232.         )
  233.         (
  234.             ; delete key
  235.             (run "delete S:Executive.key")
  236.         )
  237.     )
  238.     (run "delete ENVARC:Executive.key")
  239.     (run "delete ENV:Executive.key")
  240. )) ; end of if statement
  241.  
  242. (complete 50)
  243.  
  244. (run "Delete ExDest:Executive ALL FORCE QUIET")
  245. (run "Delete ExDest:Executive.info ALL FORCE QUIET")
  246. (run "Delete S:Executive.prefs")
  247. (run "Delete ENV:Executive.prefs")
  248. (run "Delete ENVARC:Executive.prefs")
  249. (if (exists "LOCALE:" (noreq))
  250. (
  251.     (run "Delete LOCALE:Catalogs/Suomi/Executive.catalog")
  252.     (run "Delete LOCALE:Catalogs/Français/Executive.catalog")
  253.     (run "Delete LOCALE:Catalogs/Deutsch/Executive.catalog")
  254.     (run "Delete LOCALE:Catalogs/Norsk/Executive.catalog")
  255.     (run "Delete LOCALE:Catalogs/Nederlands/Executive.catalog")
  256.     (run "Delete LOCALE:Catalogs/Svenska/Executive.catalog")
  257.     (run "Delete LOCALE:Catalogs/Dansk/Executive.catalog")
  258.     (run "Delete LOCALE:Catalogs/Español/Executive.catalog")
  259.     (run "Delete LOCALE:Catalogs/Italiano/Executive.catalog")
  260.     (run "Delete LOCALE:Catalogs/Português/Executive.catalog")
  261. )) ; end of if statement
  262.  
  263. (complete 90)
  264.  
  265. (default_level)
  266.  
  267. ; ===== Remove path-command from s:user-startup
  268. (startup "Executive"
  269.     (prompt (#rempath))
  270.     (help #remhelp)
  271.     (command #userstartup)
  272. )
  273.  
  274. (complete 100)
  275.  
  276. (makeassign "ExDest" (safe))
  277.  
  278. (expert_level)
  279.  
  280. (message #done)
  281.  
  282. (exit (quiet))
  283.